home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
2056.ZIP
/
KERMFT10.ZIP
/
UPLOAD.SCR
< prev
Wrap
Text File
|
1992-10-04
|
1KB
|
54 lines
; This will call the appropriate external file transfer protocols
; Glauber 13sep92
; edit next line so that it matches your system
define progpath c:\kermit\gsz
define gszparms pB4096 pV1
:top
cls
echo {\009 ╔════════════════════╗}
echo {\009 ║ UPLOAD PROTOCOLS: ║}
echo {\009 ╟────────────────────╢}
echo {\009 ║ 1. Zmodem ║}
echo {\009 ║ ║}
echo {\009 ║ 2. YModem ║}
echo {\009 ║ ║}
echo {\009 ║ 3. XModem ║}
echo {\009 ╚════════════════════╝}
echo {\009}
ask user {\009 Please choose (1|2|3)\009}
ask what {\009 File(s) to upload:\009}
if equal \m(user) 1 goto zmodem
if equal \m(user) 2 goto ymodem
if equal \m(user) 3 goto xmodem
if equal \m(user) z goto zmodem
if equal \m(user) y goto ymodem
if equal \m(user) x goto xmodem
if equal \m(user) zmodem goto zmodem
if equal \m(user) ymodem goto ymodem
if equal \m(user) xmodem goto xmodem
goto top
:zmodem
echo {\009 OK, Zmodeming \m(what)}
run \m(progpath) \m(gszparms) sz -mrr \m(what)
pop
:ymodem
echo {\009 OK, Ymodeming} \m(what)}
run \m(progpath) \m(gszparms) sb \m(what)
pop
:xmodem
echo {\009 OK, Xmodeming \m(what)}
run \m(progpath) \m(gszparms) sx \m(what)
pop